source('d:/project/gene/doc/cell.R')
atom()
# 获取传递给脚本的参数
args <- commandArgs(trailingOnly = TRUE)
a<- as.numeric(args[[1]])
b<- as.numeric(args[[2]])
print(a)  # 第一个参数
print(b)  # 第二个参数
chemical(a,b)
print("R script finish!")